home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 January / 1988-01.d64 / wordcount create (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  5KB  |  86 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 20 printchr$(147)"   copyright 1988 compute! pub., inc."
  3. 30 printtab(10)"all rights reserved"
  4. 40 open1,8,15:df$="wordcount":gf$="wordcount":r$=chr$(18)
  5. 50 print:print:print:printr$df$
  6. 60 forp=1to16:p$=p$+chr$(160):next:z$=chr$(0):gf$=left$(gf$+p$,16)
  7. 70 ford=1to7:ready:di$=di$+chr$(y):next:data 0,6,87,7,1,1,0
  8. 80 print:print"writing "df$"'s header block":gosub160:gosub200
  9. 90 print#1,"b-p";8;tb-2:get#8,it$,is$:it=asc(it$+z$):is=asc(is$+z$)
  10. 100 print#1,"b-p";8;tb-3:print#8,z$;:print#1,"u2:";8;0;td;sd:close8
  11. 110 print:print"writing "df$"'s application file":gosub160:gosub200
  12. 120 print#8,chr$(it)chr$(is);di$;:print#1,"u2:";8;0;td;sd
  13. 130 print#1,"u1:";8;0;it;is:print#1,"b-p";8;0:print#8,chr$(0)chr$(255);
  14. 140 print#1,"u2:";8;0;it;is
  15. 150 print:print:printr$df$" created!":close8:close1:end
  16. 160 print#1,"s0:"+gf$:open8,8,8,+gf$+",u,w":gosub280
  17. 170 ready:on-(y=-1)-2*(y=-2)goto180,190:print#8,chr$(y);:goto170
  18. 180 forz=1to171:print#8,z$;:next: rem only for header block!
  19. 190 close8:return
  20. 200 td=18:sd=1:open8,8,8,"#"
  21. 210 print#1,"u1:";8;0;td;sd:gosub280
  22. 220 print#1,"b-p";8;0:get#8,nt$,ns$
  23. 230 forde=0to7:tb=de*32+5:print#1,"b-p";8;tb
  24. 240 dn$="":ford=1to16:get#8,a$:dn$=dn$+a$:next:print".";
  25. 250 ifdn$=gf$thenprint:return
  26. 260 next:td=asc(nt$+z$):sd=asc(ns$+z$):iftdthen210
  27. 270 print:printr$"file not found!":close8:close1:end
  28. 280 input#1,en,ed$,et$,es$:ifen=0thenreturn
  29. 290 printr$;en,ed$,et$;es$:close8:close1:end
  30. 300 rem header block info
  31. 310 data 3,21,191,255,255,255,128,0,1,156,226,1,132,38,1,156,226,7
  32. 320 data 132,130,29,156,231,17,128,0,39,156,0,45,132,0,121,156,0,193
  33. 330 data 144,0,129,156,1,225,128,2,145,136,1,225,152,2,241,136,5,249
  34. 340 data 136,7,249,156,3,241,128,0,1,255,255,255,131,6,0,0,4,112
  35. 350 data 7,0,4,103,101,111,67,111,117,110,116,-1
  36. 360 rem application data
  37. 370 data 234,169,230,133,24,169,0,133,25,160,90,56,32,78,193,169,0,133
  38. 380 data 251,169,16,133,252,169,0,133,112,133,113,141,249,5,169,0,133,118
  39. 390 data 169,16,133,119,32,161,194,138,240,8,160,5,32,142,6,76,40,4
  40. 400 data 165,12,133,253,165,13,133,254,169,7,133,16,169,48,133,22,169,6
  41. 410 data 133,23,169,249,133,12,169,5,133,13,169,16,133,2,169,6,133,3
  42. 420 data 32,86,194,165,2,201,2,208,3,76,44,194,201,5,240,40,173,141
  43. 430 data 132,201,1,208,5,160,2,76,136,6,160,3,185,142,132,240,15,152
  44. 440 data 24,105,8,205,137,132,240,6,32,176,194,76,40,4,136,16,233,76
  45. 450 data 40,4,173,249,5,208,5,160,3,76,136,6,169,249,133,2,169,5
  46. 460 data 133,3,32,116,194,138,240,3,76,134,6,173,19,132,133,4,173,20
  47. 470 data 132,133,5,169,0,133,10,169,16,133,11,32,228,193,138,240,3,76
  48. 480 data 134,6,160,90,177,10,201,49,208,6,162,23,160,63,208,15,201,50
  49. 490 data 208,6,162,26,160,62,208,5,160,1,76,136,6,142,110,7,140,111
  50. 500 data 7,32,164,5,138,240,3,76,134,6,173,150,132,205,111,7,144,5
  51. 510 data 240,3,76,100,5,173,110,7,24,101,122,133,122,169,0,101,123,133
  52. 520 data 123,160,0,32,93,5,177,122,240,76,32,203,5,144,11,32,223,5
  53. 530 data 176,239,201,12,208,235,240,44,230,112,208,2,230,113,32,93,5,177
  54. 540 data 122,240,47,32,203,5,144,244,201,12,240,22,32,223,5,176,235,201
  55. 550 data 13,240,202,201,32,240,198,201,128,144,223,160,6,76,136,6,32,122
  56. 560 data 194,138,240,145,76,134,6,230,122,208,2,230,123,96,32,60,6,169
  57. 570 data 0,133,253,169,16,133,254,169,125,133,2,169,5,133,3,32,86,194
  58. 580 data 76,0,4,129,11,40,32,149,5,11,96,32,249,5,11,40,48,156
  59. 590 data 5,12,96,48,253,1,17,72,0,24,70,105,108,101,58,0,24,87
  60. 600 data 111,114,100,115,58,0,169,0,133,6,169,80,133,7,169,0,133,16
  61. 610 data 133,122,169,16,133,17,133,123,32,140,194,138,240,12,201,11,208,5
  62. 620 data 160,4,76,136,6,76,134,6,96,201,65,144,14,201,123,176,10,201
  63. 630 data 97,176,4,201,91,176,2,24,96,56,96,162,2,221,10,6,240,5
  64. 640 data 202,16,248,24,96,165,122,24,125,13,6,133,122,144,2,230,123,56
  65. 650 data 96,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64,64
  66. 660 data 17,23,16,26,3,4,129,11,130,10,39,6,12,130,20,253,16,4
  67. 670 data 4,5,17,24,2,17,72,6,17,48,0,79,110,32,100,105,115,107
  68. 680 data 58,0,87,114,105,116,101,32,73,109,97,103,101,0,160,4,169,32
  69. 690 data 145,118,136,16,251,160,4,132,116,169,0,133,114,133,115,162,16,24
  70. 700 data 38,112,38,113,38,114,38,115,56,165,114,233,10,168,165,115,233,0
  71. 710 data 144,4,132,114,133,115,202,208,229,38,112,38,113,165,114,24,105,48
  72. 720 data 164,116,145,118,136,165,112,5,113,208,198,160,5,145,118,96,160,0
  73. 730 data 32,142,6,76,0,4,152,10,168,185,175,6,133,120,185,176,6,133
  74. 740 data 121,169,166,133,2,169,6,133,3,76,86,194,129,12,10,30,120,1
  75. 750 data 17,72,0,189,6,209,6,235,6,9,7,32,7,63,7,83,7,24
  76. 760 data 69,114,114,111,114,32,114,101,97,100,105,110,103,32,102,105,108,101
  77. 770 data 0,24,103,101,111,87,114,105,116,101,32,49,46,120,32,111,114,32
  78. 780 data 50,46,120,32,111,110,108,121,0,24,73,110,115,101,114,116,32,110
  79. 790 data 101,119,32,100,105,115,107,32,105,110,116,111,32,100,114,105,118,101
  80. 800 data 32,65,0,24,78,111,32,102,105,108,101,32,119,97,115,32,115,101
  81. 810 data 108,101,99,116,101,100,33,0,24,80,65,71,69,32,84,79,32,76
  82. 820 data 65,82,71,69,32,70,79,82,32,69,86,65,76,85,65,84,73,79
  83. 830 data 78,33,0,24,69,114,114,111,114,32,114,101,97,100,105,110,103,32
  84. 840 data 100,105,115,107,0,24,73,108,108,101,103,97,108,32,99,104,97,114
  85. 850 data 97,99,116,101,114,32,105,110,32,102,105,108,101,0,0,0,-2
  86.